home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-11
/
vs_804.zip
/
MAINTSRC.EXE
/
D_NTX.PRG
< prev
next >
Wrap
Text File
|
1991-10-14
|
717b
|
34 lines
* Filename......: D_Ntx.Prg
*
* Author........: Vernon E. Six, Jr.
*
* Last Update...: Mon 10-14-1991 10:39:04
*
* Notice........: Copyright (c) 1991 by Vernon E. Six, Jr.
* All Rights Reserved World Wide
*
* Dialect.......: Clipper v5.0x
#include "INKEY.CH"
#include "SETCURS.CH"
FUNCTION D_Ntx
*****
* Delete currently highlighted record
*****
LOCAL n_Button
n_Button = VS_Alert( { PADC("Delete Current Index?",40), ;
PADC("Are You Sure?",40) }, { " No ", " Yes " }, 3 )
IF n_Button = 1
RETURN(NIL)
ENDIF
_DICTNTX->( VS_DelRec() )
RETURN(NIL)
*** EOF: D_Ntx() ************************************************************